home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n19.arc / FIELDLEN.PRG < prev    next >
Text File  |  1990-10-13  |  948b  |  45 lines
  1.  
  2. * FIELDLEN.PRG - MAX LENGTH OF CHARACTER VARIABLES - D. Chambless
  3. * Modified to use arrays and accept the filename as a parameter
  4.  
  5. PARAMETER filename
  6. SET TALK OFF
  7. CLOSE DATABASES
  8. SELECT 1
  9. USE &filename
  10. DIMENSION NAM_CVAR(100), LEN_CVAR(100)
  11. COPY STRUCTURE EXTENDED TO TEMP
  12. SELECT 2
  13. USE TEMP
  14. SET FILTER TO FIELD_TYPE = 'C'
  15. GO TOP
  16. NO_CVAR = 0
  17. DO WHILE .NOT. EOF()
  18.    NO_CVAR = NO_CVAR + 1
  19.    NAM_CVAR(NO_CVAR) = TRIM(FIELD_NAME)
  20.    LEN_CVAR(NO_CVAR) = 0
  21.    SKIP
  22. ENDDO VAR
  23. TOO_MANY = NO_CVAR
  24. SELECT 1
  25. GO TOP
  26. DO WHILE .NOT. EOF()
  27.    NO_CVAR = 0
  28.    DO WHILE NO_CVAR < TOO_MANY
  29.       NO_CVAR = NO_CVAR + 1
  30.       FIELD = NAM_CVAR(NO_CVAR)
  31.       LEN_CVAR(NO_CVAR) = MAX(LEN_CVAR(NO_CVAR), LEN(LTRIM(TRIM(&FIELD))))
  32.    ENDDO VAR
  33.    SKIP
  34. ENDDO EOF
  35. NO_CVAR = 0
  36. DO WHILE NO_CVAR < TOO_MANY
  37.    NO_CVAR = NO_CVAR + 1
  38.    ? NAM_CVAR(NO_CVAR), STR(LEN_CVAR(NO_CVAR),5)
  39. ENDDO VAR
  40. CLOSE DATABASES
  41. ERASE TEMP.DBF
  42. RETURN
  43.  
  44.  
  45.